5 DV=PEEK(186):IFDV<8THENDV=8
10 GOTO8001
20 REM -- SIR MIX A LOT --
30 QT=QT+1:IFQT>N%THENQT=1
32 RN%=RND(1)*(N%-QT+1)+QT:A$=QT$(QT):B$=AN$(QT)
35 QT$(QT)=QT$(RN%):AN$(QT)=AN$(RN%)
40 QT$(RN%)=A$:AN$(RN%)=B$
45 RETURN
46 REM -- PRINT QUESTION --
50 PRINT"[154]WHAT@IS@THE@SECRET@IDENTITY@OF..."
55 FORI=1TO6:CH$(I)="":NEXT
60 CN%=(RND(1)*6+1):CH$(CN%)=AN$(QT)
65 FORI=1TO6:IFCH$(I)<>""THEN90
70 RN%=RND(1)*N%+1:IFAN$(RN%)=AN$(QT)THEN70
75 FL=0:FORJ=1TOI:IFCH$(J)=AN$(RN%)THENFL=1:J=I
80 NEXT:IFFLTHEN70
85 CH$(I)=AN$(RN%)
90 NEXT
91 PRINT"[154]"QT$(QT)"?"
92 POKE214,2:PRINT
94 FORI=1TO6:PRINTTAB(6)"[158]"CH$(I):NEXT
96 PRINT"[154]PRESS@A@KEY@(1-6)@@PRESS@(Q)@TO@QUIT"
98 RETURN
100 REM -- GAME SCREEN --
110 POKE53280,0:POKE53281,.:POKE53283,2
115 POKE53265,PEEK(53265)OR64
120 PRINT"[147]^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^"
130 PRINT"[154]@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@"
140 PRINT"[154]@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@"
150 PRINT"______________________________________"
160 FORI=1TO6
170 PRINT"^^^^^^^^^^^^^^^^^^^^^"
180 PRINT"[153]"I"[157][157][157]@@[158]@@@@@@@@@@@@@@@@@@"
190 PRINT"___[129]__________________"
200 NEXT
210 PRINT"^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^"
220 PRINT"[154]@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@"
230 PRINT"______________________________________"
240 POKE214,4:PRINT
250 FORI=1TO4
260 PRINTTAB(25)"^^^^^^^^^^^^^"
270 PRINTTAB(25)"[150]@@@@@@@@@@@@@"
280 PRINTTAB(25)"[150]@@@@@@@@@@@@@"
290 PRINTTAB(25)"_____________"
300 NEXT
310 POKE214,5:PRINT
320 PRINTTAB(27)"[150]QUESTION#"
325 PRINTTAB(30)"000"
330 PRINTTAB(26)"POINT@VALUE"
335 PRINTTAB(29)"00000"
340 PRINTTAB(29)"SCORE"
345 PRINTTAB(29)"00000"
350 PRINTTAB(32-LEN(NM$)/2)""NM$
355 PRINTTAB(29)"00000[145]"
360 A$=STR$(TS):PRINTTAB(35-LEN(A$))"[150]"RIGHT$(A$,LEN(A$)-1)
370 RETURN
400 REM -- QUESTION NUMBER --
410 POKE214,6:PRINT
420 A$=STR$(QN):PRINTTAB(34-LEN(A$))"[150]"RIGHT$(A$,LEN(A$)-1)
430 RETURN
450 REM -- POINT VALUE --
460 POKE214,10:PRINT
470 A$=STR$(PV):PRINTTAB(35-LEN(A$))"[150]"RIGHT$(A$,LEN(A$)-1)
480 RETURN
500 REM -- SCORE --
510 POKE214,14:PRINT
520 A$=STR$(SC):PRINTTAB(35-LEN(A$))"[150]"RIGHT$(A$,LEN(A$)-1)
530 RETURN
600 REM -- ERASE --
610 PRINT"[154]@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@"
620 FORI=1TO6:PRINTTAB(6)"[158]@@@@@@@@@@@@@@@@":NEXT
630 PRINT"[154]@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@"
640 RETURN
650 REM -- QUIT --
660 POKE214,22:PRINT
665 PRINT" @@@@@@DO@YOU@WANT@TO@QUIT?@(Y/N)@@@@@@[145]"
670 GETA$:IFA$="Y"THEN15010
680 IFA$<>"N"THEN670
685 PRINT" @PRESS@A@KEY@(1-6)@@PRESS@(Q)@TO@QUIT@"
690 GOTO2020
700 REM -- HIGHLIGHT CORRECT ANSWER --
710 POKE214,CN%*3+2:PRINT"[158]"
720 FORI=1TO2
730 PRINTTAB(6)"[145]"AN$(QT):GOSUB1410:FORDE=1TO250:NEXT
740 PRINTTAB(6)"[145]"AN$(QT):FORDE=1TO200:NEXT
750 NEXT
760 PRINTTAB(6)"[145]"AN$(QT):GOSUB1410:FORDE=1TO800:NEXT
770 RETURN
775 :
780 POKE214,CN%*3+2:PRINT
785 PRINTTAB(6)"[145][158]"AN$(QT):GOSUB1230
786 RETURN
790 REM -- BONUS PROMPT --
792 POKE214,22:PRINT
793 PRINT"[154] @@BONUS@IF@YOU@ANSWER@NEXT@QUESTION!"
794 FORDE=1TO1500:NEXT
798 RETURN
800 REM -- THE QUESTIONER --
810 PRINTTAB(TB)"[192][193][194]";
820 PRINTSPC(36)"[195][196][154][197][198][199]";
830 PRINTSPC(34)"[200][201][202][203][204][205][206]";
840 PRINTSPC(33)"[207][208][209][210][211][212][213]";
850 PRINTSPC(32)"[214][215][216][217] [218][219][220][221]";
860 PRINTSPC(31)"[255][223][161][162] [163][164][165][166]";
870 PRINTSPC(31)"[167][168][169][170][171][172][173][174][175]";
880 PRINTSPC(31)"[176][177][178][179] [180][181][182][183]";
890 PRINTSPC(31)"[184][185][186][187] [188][189][190][191]";
900 PRINTSPC(31)"[192][193][194][195][196][197][198][199][200]";
910 PRINTSPC(32)"[201][202][160][160][160][203][204]"
920 RETURN
950 REM -- RIGHT HOOK --
960 POKE214,8:PRINT""
970 PRINTTAB(21)" [205][206][207][146][204][205][206]"
980 PRINTTAB(21)"[208][209][210][211][146][211][212][213]"
990 PRINTTAB(20)" [212][213][214][146] [218][219][220][221]"
1000 PRINTTAB(20)" [215][216][146][162] [163][164][165][166]"
1010 PRINTTAB(20)" [217][146][169][170][171][172][173][174][175]"
1020 RETURN
1050 REM -- LEFT HOOK --
1060 POKE214,8:PRINT""
1070 PRINTTAB(21)"[200][201][202][218][219][220][160]"
1080 PRINTTAB(21)"[207][208][209][221][255][223][161]"
1090 PRINTTAB(20)"[214][215][216][217] [162][163][164][160]"
1100 PRINTTAB(20)"[255][223][161][162] [163][165][166][160]"
1110 PRINTTAB(20)"[167][168][169][170][171][172][173][167][160]"
1120 RETURN
1200 REM -- CLEAR SID CHIP --
1210 FORI=.TO24:POKES+I,.:NEXT:RETURN
1220 REM -- CORRECT SOUND --
1230 POKES+24,15:POKES+6,225:POKES+4,17
1240 FORI=1TO7:FORDE=1TO180STEP20
1250 POKES+1,DE:NEXT:NEXT
1260 POKES+4,0:RETURN
1300 REM -- WRONG SOUND --
1310 POKES+24,15:POKES+5,129:POKES+6,129
1320 POKES+3,145:POKES+4,33:POKES+1,14
1330 FORDE=1TO100:NEXT
1340 FORI=14TO3STEP-1
1350 POKES+1,I:FORDE=.TO18:NEXT
1360 NEXT:POKES+4,32
1370 RETURN
1400 REM -- BELL --
1410 POKES+2,.:POKES+3,8:POKES+5,.:POKES+6,252
1420 POKES+24,7:POKES,134:POKES+1,20
1430 POKES+4,65:FORDE=.TO100:NEXT
1440 POKES+4,64:RETURN
1450 REM -- THWACK --
1460 POKES+24,15:POKES+1,RND(1)*20+10
1470 POKES+5,20:POKES+6,0:POKES+4,129
1480 FORDE=.TO50:NEXT:POKES+4,0
1490 RETURN
1500 REM -- BEEP --
1510 POKES+1,50:POKES+6,240:POKES+24,15
1520 POKES+4,17:FORDE=1TO300:NEXT
1530 POKES+4,0:RETURN
1600 REM -- A NEW HIGH SCORE! --
1610 FORI=1TO3:FORJ=1TO3
1620 POKES+5,62:POKES+6,48
1630 POKES+1,J*3+6:POKES,54
1640 POKES+4,33:FORDE=1TO108:NEXT
1650 POKES+4,32::FORDE=1TO10:NEXT
1660 NEXT:NEXT:RETURN
1900 REM --- CHECK DRIVE ---
1910 OPEN15,DV,15,"R0:"+F$+"="+F$:INPUT#15,ER:CLOSE15
1920 RETURN
2000 REM -- MAIN --
2010 IFBG=3THENGOSUB1510:GOSUB792
2015 GOSUB30:GOSUB410:GOSUB460:GOSUB510:GOSUB50
2020 GETA$:IFA$<"1"ORA$>"6"ANDA$<>"Q"THEN2020
2025 IFA$="Q"THEN660
2030 AN=VAL(A$):IFCH$(AN)=AN$(QT)THEN2110
2040 REM -- WRONG ANSWER --
2050 GOSUB1310:GOSUB710:PV=50:BG=0
2060 POKE214,10:PRINT:PRINTTAB(29)"[150]00050"
2070 GOTO2200
2100 REM -- CORRECT ANSWER --
2110 GOSUB780:SC=SC+PV:GOSUB510:PV=PV+50
2115 FORDE=1TO1000:NEXT
2120 BG=BG+1:IFBG=4THENBG=0:GOSUB4010
2200 QN=QN+1:IFQN>20THEN6010
2210 GOSUB610:GOTO2010
4000 REM -- BONUS SCREEN --
4010 POKE53280,0:POKE53281,0:PRINT"[147]"
4020 POKE53265,PEEK(53265)AND191
4030 PRINT" [160]OOPS![160]"
4040 C$="[156][150][129][158][159][153]"
4050 FORI=1TO7
4060 PRINTMID$(C$,I,1)" [160][160][160][160][160][160][160]"
4070 PRINT" [160]"BN$(I*3)"[160]"
4080 PRINTMID$(C$,I,1)" [160][160][160][160][160][160][160]"
4090 NEXT
4100 PRINT" [155][160]START[160]\"
4110 PRINTTAB(16)"[158][160]THE[160]BONUS[160]GAME![160]"
4120 PRINTTAB(13)"^^^^^^^^^^^^^^^^^^^^^^^"
4130 PRINTTAB(13)"[154][160]"CHR$(34)"PRESS[160]DOWN[160]SPACEBAR"CHR$(34)"[160]"
4140 PRINTTAB(13)"_______________________"
4150 POKE214,18:PRINT
4160 PRINTTAB(13)"^^^^^^^^^^^^^^^^^^^^^^^"
4170 PRINTTAB(13)"[154][160]"CHR$(34)"RELEASE[160]WHEN[160]READY!"CHR$(34)"[160]"
4180 PRINTTAB(13)"_______________________"
4190 PRINTTAB(16)"[150][160][160]BONUS[160]=[160]00000[160][160]"
4200 POKE214,6:PRINT:TB=23:GOSUB810
4210 BN=22:IFPEEK(197)<>60THEN4210
4220 BN=BN-1:IFBN<0THENBN=0
4230 FORDE=1TO70:NEXT
4240 IFPEEK(197)=60THEN4220
4250 FORI=21TOBNSTEP-1
4260 X=-(X=0):IFXTHENGOSUB1060:GOTO4280
4270 GOSUB960
4280 POKE214,I:PRINT:PRINTTAB(8)" [145][157]\"
4290 POKE214,22:PRINT"[150]"
4300 PRINTTAB(31-LEN(BN$(I)))BN$(I)
4310 GOSUB1460:POKE214,6:PRINT
4320 GOSUB810:FORDE=1TO100:NEXT
4330 NEXT
4400 B$=BN$(I+1):BN=VAL(B$):IFBN=0THENGOSUB1310:GOTO4420
4410 GOSUB1230
4420 FORDE=1TO2000:NEXT
4430 IFPRTHENRETURN
4440 REM -- PRINT BONUS --
4445 GOSUB110:GOSUB410:GOSUB460:GOSUB510
4450 IFBN=0THENRETURN
4460 POKE214,10:PRINT
4470 FORI=1TO3:PRINTTAB(13)"[159]@@@@@@@@@@@@@@":NEXT
4480 PRINTTAB(14)"[145][145]BONUS@=@"RIGHT$(B$,LEN(B$)-1):FORDE=1TO500:NEXT
4490 POKES+6,200:POKES+1,0:POKES+24,15
4500 FORI=10TOBNSTEP10:POKES+4,17:POKES+1,I/10:SC=SC+10:GOSUB510:POKES+4,0:NEXT
4510 GOSUB1230:FORDE=1TO500:NEXT
4520 POKE214,10:PRINT
4530 PRINTTAB(13)"[158]@@@@@@@@@@  [150]@@"
4540 PRINTTAB(13)"[129]__________  __"
4550 PRINTTAB(13)"^^^^^^^^^^  ^^"
4560 RETURN
6000 REM -- GAME OVER --
6010 POKE53281,.:POKE53280,6:PRINT"[147]"
6020 POKE53265,PEEK(53265)AND191
6030 IFSC<=TSTHEN15010
6040 REM -- A NEW HIGH SCORE --
6050 TS=SC:NM$="":GOSUB1610
6060 POKE214,6:PRINT
6070 PRINTTAB(12)"[150]CONGRATULATIONS!"
6080 PRINTTAB(8)"[158]YOU[160]BEAT[160]THE[160]HIGH[160]SCORE!"
6090 PRINTTAB(13)"^^^^^^^^^^^^^^"
6100 PRINTTAB(13)"[154][160]*[160][160][160][160][160][160][160][160][160][160][160][160]"
6110 PRINTTAB(13)"______________"
6120 PRINTTAB(10)"[153]TYPE[160]YOUR[160]FIRST[160]NAME"
6130 PRINTTAB(11)"[159]THEN[160]PRESS[160]RETURN!"
6200 REM -- GET NAME --
6210 POKE214,11:PRINT
6220 PRINTTAB(14)"[154]*[157]";
6230 GETA$:IFA$<>""THEN6230
6240 GETA$:IFA$=""THEN6240
6250 IFA$=CHR$(20)ANDLEN(NM$)THENNM$=LEFT$(NM$,LEN(NM$)-1):PRINT"[157][160]":GOTO6290
6260 IFA$=CHR$(13)ANDLEN(NM$)THENPRINT"[157][160]":GOTO6400
6270 IFA$<"A"ORA$>"Z"ORLEN(NM$)>10THEN6240
6280 NM$=NM$+A$
6290 POKE214,11:PRINT:PRINTTAB(14)NM$"*";:GOTO6240
6400 PRINTTAB(9)"[160][160][160][160][160]SAVING[160]SCORE...[160][160]"
6410 OPEN15,DV,15,"S0:SECRET.HIGH":CLOSE15
6420 OPEN8,DV,8,"SECRET.HIGH,P,W"
6430 PRINT#8,NM$:PRINT#8,TS
6450 CLOSE8:GOTO15010
8000 REM -- TITLE SCREEN --
8001 POKE56578,PEEK(56578)OR3
8002 POKE56576,(PEEK(56576)AND252)
8003 POKE53272,(PEEK(53272)AND15)OR32
8004 POKE53272,(PEEK(53272)AND240)OR12
8005 POKE648,200:POKE53265,PEEK(53265)AND191
8010 POKE53281,0:POKE53280,0:PRINT"[147]"
8020 PRINTTAB(9)"WHO[160]IS[160]THE[160]MASKED[160]MAN?"
8030 PRINTTAB(13)"WHAT[160]IS[160]HIS..."
8040 PRINTTAB(5)"[158][168][169][168][169][168][169][176][169][168][169][178][179][180][160][184][176][169][168][169][185][186][178][179][180][184][178][179][180][184][184]"
8050 PRINTTAB(5)"[170][169][172][173][175][174][181][182][172][173][160][175][160][160][175][175][175][172][173][189][190][160][175][160][175][160][175][160][170][191]"
8060 PRINTTAB(5)"[170][171][170][171][170][171][183][183][170][171][160][183][160][160][183][177][171][170][171][187][188][160][183][160][183][160][183][160][170][171]"
8070 PRINTTAB(8)"FEATURING"
8080 PRINTTAB(4)"THE[160]VIGILANTE[160]HERO"
8090 PRINTTAB(9)"T[160][160]H[160][160]E"
8100 PRINTTAB(3)"[154][168][169][184][184][168][169][168][169][178][179][180][184][168][169][185][186][168][169][176][169]"
8110 PRINTTAB(3)"[175][175][175][175][172][173][170][169][160][175][160][175][175][175][189][190][172][173][181][182]"
8120 PRINTTAB(3)"[170] [170][171][170][171][170][171][160][183][160][183][170][171][187][188][170][171][183][183]"
8130 PRINTTAB(3)"[159]CREATED[160]BY[160]TONY[160]ROSE"
8140 PRINTTAB(3)"[156]WHEN[160]CONFRONTED[160]BY[160]THE[160]QUESTIONER,"
8150 PRINTTAB(5)"PRAY[160]YOU[160]HAVE...THE[160]ANSWERS!!!"
8160 PRINTTAB(10)"[150]ONE[160]MOMENT[160]PLEASE..."
8170 POKE214,7:PRINT:TB=30:GOSUB810
10000 REM -- INITIALIZE --
10010 DIMI,J,FL,DE,QN,AN,SC,TS,PV,RN%,CN%,TB,BN,BG,PR,A$,B$
10020 NM$="EMPTY":N%=108:S=54272:X=RND(-TI)
10030 F$="SECRET.HIGH":GOSUB1910
10040 IFER<>63THENNM$="---------":TS=0:GOTO10100
10050 OPEN8,DV,8,"SECRET.HIGH"
10060 INPUT#8,NM$:INPUT#8,TS:CLOSE8
10100 DIMQT$(200),AN$(200),CH$(6),BN$(21)
10110 FORI=1TON%:READQT$(I),AN$(I):NEXT
10130 FORI=.TO21:READBN$(I):NEXT
10200 GOSUB1210:GOSUB1410
10205 POKE214,22:PRINT
10210 PRINTTAB(9)"[150]PRESS[160]ANY[160]KEY[160]TO[160]BEGIN"
10220 GETA$:IFA$=""THEN10220
15000 REM -- OPTIONS --
15010 QN=1:SC=0:PV=50:BG=0:PR=0
15020 POKE53281,.:POKE53280,0:PRINT"[147]"
15025 POKE53265,PEEK(53265)AND191
15030 POKE214,4:PRINT
15040 PRINTTAB(6)"^^^^^^^^^^^^^^^^^^^^^^^^^^^^"
15050 PRINTTAB(6)"[154][160][160][160][160][160][160][160]SECRET[160]OPTIONS[160][160][160][160][160][160][160]"
15060 PRINTTAB(6)"____________________________"
15070 PRINTTAB(6)"[158][160]1[160] PLAY[160]SECRET[160]IDENTITY"
15080 PRINTTAB(6)"[158][160]2[160] [159]PRACTICE[160]THE[160]BONUS[160]GAME"
15090 PRINTTAB(6)"[158][160]3[160] [156]READ[160]SOME[160]NONSENSE"
15100 PRINTTAB(6)"[158][160]4[160] [150]ADIOS[160]AMIGOS"
15110 PRINTTAB(6)"^^^^^^^^^^^^^^^^^^^^^^^^^^^^"
15120 PRINTTAB(6)"[154][160][160][160][160][160]PRESS[160]A[160]KEY:[160](1-4)[160][160][160][160][160]"
15130 PRINTTAB(6)"____________________________"
15200 GETA$:IFA$<"1"ORA$>"4"THEN15200
15210 IFA$="1"THENGOSUB110:GOTO2010
15220 IFA$="2"THENPR=1:GOSUB4010:GOTO15010
15230 IFA$="3"THENGOSUB40010:GOTO15010
15235 IFSC>TSTHEN6010
15240 POKE214,17:PRINT
15250 PRINTTAB(7)"[154]DO[160]YOU[160]WANT[160]TO[160]QUIT?[160](Y/N)[145]"
15260 GETA$:IFA$="N"THEN15120
15270 IFA$<>"Y"THEN15260
15400 POKE56578,PEEK(56578)OR3
15410 POKE56576,(PEEK(56576)AND252)OR3
15420 POKE53272,21:POKE648,4:PRINT"[147]"
15430 GOTO60000
20000 REM -- QUESTIONS & ANSWERS --
20010 DATAALBION,PETER@HUNTER
20020 DATATHE@AMAZING@SPIDERMAN,PETER@PARKER
20030 DATAAMBUSH@BUG,IRWIN@SCHWAB,GANJA@MAN,FENDER@TUCKER
20035 DATAAZRAEL,JEAN@PAUL@VALLEY
20040 DATAAQUALAD,GARTH
20050 DATAAQUAMAN,ARTHUR@CURRY
20060 DATATHE@ATOM,RAYMOND@PALMER
20070 DATABARON@BLOOD,VICTOR@STRANGE
20080 DATATHE@BATMAN,BRUCE@WAYNE
20090 DATATHE@BEAST,HENRY@MCCOY
20100 DATATHE@BLACK@KNIGHT,DANE@WHITMAN
20110 DATABLACK@LIGHTNING,JEFFERSON@PIERCE
20120 DATATHE@BLACK@PANTHER,T'CHALLA
20130 DATABOUNCING@BOY,CHUCK@TAINE
20140 DATABRAINIAC@5,QUERI@DOX
20150 DATACABLE,NATHAN@DAYSPRING
20160 DATACANNONBALL,SAMUEL@GUTHRIE
20170 DATACAPTAIN@AMERICA,STEVE@ROGERS
20180 DATACAPTAIN@BRITAIN,BRIAN@BRADDOCK
20190 DATACAPTAIN@COMET,ADAM@BLAKE
20200 DATACAPTAIN@MARVEL,BILLY@BATSON
20210 DATACHAMELEON@BOY,REEP@DAGGLE
20220 DATATHE@CHANGELING,GARFIELD@LOGAN
20230 DATACHEMICAL@KING,CONDO@ARLIK
20240 DATACLOAK,TYRONE@JOHNSON
20250 DATACOLOSSAL@BOY,GIM@ALLON
20255 DATACOLOSSUS,PETER@RASPUTIN
20260 DATACOMMANDER@STEEL,HENRY@HEYWOOD
20270 DATACOSMIC@BOY,ROKK@KRINN
20280 DATATHE@CRIMSON@AVENGER,LEE@TRAVIS
20290 DATACYBORG,VICTOR@STONE
20300 DATACYCLOPS,SCOTT@SUMMERS
20310 DATADAREDEVIL,MATT@MURDOCK
20320 DATADARKHAWK,CHRIS@POWELL
20330 DATADEADMAN,BOSTON@BRAND
20340 DATADOCTOR@FATE,KENT@NELSON
20350 DATADOCTOR@MID-NITE,CHARLES@MCNIDER
20360 DATADOCTOR@STRANGE,STEPHEN@STRANGE
20365 DATAELEMENT@LAD,JAN@ARRAH
20370 DATAELONGATED@MAN,RALPH@DIBNEY
20380 DATATHE@FALCON,SAM@WILSON
20390 DATATHE@FLASH,BARRY@ALLEN
20395 DATAGAMBIT,REMY@LEBEAU
20400 DATAGHOST@RIDER,DANNY@KETCH
20405 DATAGREEN@ARROW,OLIVER@QUEEN
20410 DATAGREEN@LANTERN,HAL@JORDAN
20420 DATAHAVOK,ALEX@SUMMERS
20430 DATAHAWKEYE,CLINT@BARTON
20435 DATAHAWKMAN,KATAR@HOL
20440 DATATHE@INCREDIBLE@HULK,BRUCE@BANNER
20450 DATATHE@HUMAN@TORCH,JOHNNY@STORM
20460 DATAICEMAN,BOBBY@DRAKE
20470 DATAINVISIBLE@KID,LYLE@NORG
20475 DATAIRON@FIST,DANIEL@RAND
20480 DATATHE@INVINCIBLE@IRON@MAN,ANTHONY@STARK
20490 DATAKARATE@KID,VAL@ARMORR
20500 DATAKID@FLASH,WALLY@WEST
20510 DATALIGHTNING@LAD,GARTH@RANZZ
20515 DATAMARTIAN@MANHUNTER,J'ONN@J'ONZZ
20520 DATAMATTER-EATER@LAD,TENZIL@KEM
20540 DATAMOON@KNIGHT,MARC@SPECTOR
20550 DATAMISTER@FANTASTIC,REED@RICHARDS
20560 DATAMULTIPLE@MAN,JAMIE@MADROX
20570 DATANIGHTCRAWLER,KURT@WAGNER
20580 DATANIGHTHAWK,KYLE@RICHMOND
20590 DATANIGHTWING,DICK@GRAYSON
20592 DATANOMAD,JACK@MONROE
20595 DATAPOWER@MAN,LUKE@CAGE
20600 DATAPUCK,EUGENE@JUDD
20610 DATATHE@PUNISHER,FRANK@CASTLE
20620 DATATHE@PUNISHER@2099,JAKE@GALLOWS
20630 DATAQUASAR,WENDELL@VAUGHN
20635 DATAQUICKSILVER,PIETRO@MAXIMOFF
20640 DATATHE@RED@TORNADO,JOHN@SMITH
20645 DATAROBIN@(THE@3RD@VERSION),TIMOTHY@DRAKE
20650 DATASANDMAN,WESLEY@DODD
20655 DATASHADOWMAN,JACK@BONIFACE
20660 DATATHE@SILVER@SURFER,NORRIN@RADD
20665 DATASPAWN,AL@SIMMONS
20670 DATATHE@SPECTRE,JIM@CORRIGAN
20680 DATASPIDERMAN@2099,MIGUEL@O'HARA
20690 DATASTAR@BOY,THOM@KALLOR
20700 DATATHE@SUB-MARINER,NAMOR
20710 DATASUN@BOY,DIRK@MORGNA
20715 DATASUNSPOT,ROBERTO@DACOSTA
20720 DATASUPERMAN,CLARK@KENT
20725 DATASWAMP@THING,ALEC@HOLLAND
20730 DATATHE@THING,BENJAMIN@GRIMM
20732 DATATHE@MIGHTY@THOR,DONALD@BLAKE
20735 DATATHUNDERSTRIKE,ERIC@MASTERSON
20740 DATATIMBER@WOLF,BRIN@LONDO
20750 DATAULTRA@BOY,JO@NAH
20760 DATAU.S.AGENT,JOHN@WALKER
20770 DATAVENOM,EDDIE@BROCK
20780 DATAWAR@MACHINE,JAMES@RHODES
20782 DATAWARPATH,JAMES@PROUDSTAR
20785 DATATHE@WATCHER,UATU
20787 DATAWOLVERINE,LOGAN,THE@MAN@CALLED@NOVA,RICHARD@RYDER
20788 DATAWONDER@MAN,SIMON@WILLIAMS
20790 DATAYELLOWJACKET,HENRY@PYM
20800 DATAICON,AUGUSTUS@FREEMAN,HARDWARE,CURTIS@METCALF,STATIC,VIRGIL@HAWKINS
20810 DATAPRIME,KEVIN@GREEN,THE@VISION,THE@HUMAN@TORCH,SKYRIDER,JEFF@JONES
30010 REM -- BONUS DATA --
30020 DATA00000,01000,01000,01000,00750,00750,00750,00500,00500,00500,00400
30030 DATA00400,00400,00300,00300,00300,00200,00200,00200,00100,00100,00100
40000 REM -- INSTRUCTIONS --
40010 POKE53281,0:POKE53280,0:PRINT"[147]"
40020 PRINT"       [150]^^^^^^^^^^^^^^^^^^^^^^^^^^"
40030 PRINT"       [156][160]YOUR[160]SECRET[160]INSTRUCTIONS[160]"
40040 PRINT"       __________________________"
40050 POKE214,20:PRINT
40060 PRINT"       [150]^^^^^^^^^^^^^^^^^^^^^^^^^^"
40070 PRINT"       [156][160]PRESS[160]RETURN[160]TO[160]CONTINUE[160]"
40080 PRINT"       __________________________"
40090 POKE214,4:PRINT"[159]"
40100 PRINT"   THIS[160]QUIZ/GAME[160]WILL[160]TEST[160]YOUR"
40110 PRINT" KNOWLEDGE[160]OF[160]COMIC-BOOK[160]HEROES[160]AND"
40120 PRINT" THEIR[160]SECRET[160]IDENTITIES.[160][160]EACH[160]GAME"
40130 PRINT" CONSISTS[160]OF[160]20[160][159]QUESTIONS.[160][160]THE[160]POINT"
40140 PRINT" VALUE[160]FOR[160]EACH[160]QUESTION[160]BEGINS[160]AT[160]50"
40150 PRINT" [159]AND[160]WILL[160]INCREASE[160]BY[160]50[160][159]EACH[160]TIME[160]YOU"
40160 PRINT" [159]ANSWER[160]CORRECTLY.[160][160]HOWEVER,[160]IF[160]YOU"
40170 PRINT" MISS[160]A[160]QUESTION,[160]THE[160]POINT[160]VALUE[160]WILL"
40180 PRINT" RETURN[160]TO[160]50[159]."
40190 PRINT"   ALSO,[160]IF[160]YOU[160]CORRECTLY[160]ANSWER[160]4[159]"
40200 PRINT" QUESTIONS[160]IN[160]A[160]ROW,[160]YOU[160]GET[160]A[160]CHANCE"
40210 PRINT" TO[160]EARN[160]BONUS[160]POINTS[160]BY[160]CASTING[160]ASIDE"
40220 PRINT" YOUR[160]ROLE[160]AS[160]A[160]QUESTIONEE,[160]AND[160]INSTEAD"
40230 PRINT" YOU[160]WILL[160]BECOME...[160]THE[160]QUESTIONER!!!"
40240 GETA$:IFA$<>CHR$(13)THEN40240
40250 FORI=19TO5STEP-1:POKE781,I:SYS59903:NEXT
40260 POKE214,4:PRINT"[159]"
40270 PRINT"   THE[160]QUESTIONER[160]IS[160]A[160]HERO/VIGILANTE"
40280 PRINT" WHO[160]WAGES[160]WAR[160]ON[160]THE[160]VAST[160]ARRAY[160]OF"
40290 PRINT" EVIL-DOERS[160]TERRORIZING[160]STAR[160]TOWN.[160][160]IN"
40300 PRINT" THE[160]BONUS[160]GAME[160]THE[160]QUESTIONER[160]HAS[160]JUST"
40310 PRINT" APPREHENDED[160]A[160]MEMBER[160]OF[160]A[160]SECRET"
40320 PRINT" ORGANIZATION[160]THAT[160]HAS[160]BEEN[160]ILLEGALLY"
40330 PRINT" DISTRIBUTING[160]TOWER[160]DISKS.[160][160]IN[160]ORDER[160]TO"
40340 PRINT" LEARN[160]MORE[160]INFORMATION[160]ABOUT[160]THIS"
40350 PRINT" DASTARDLY[160]GROUP,[160]THE[160]MEMBER[160]MUST[160]NOW"
40360 PRINT" BE[160]ER,[160]"CHR$(34)"QUESTIONED"CHR$(34)"."
40370 PRINT"   OKAY,[160]SO[160]WHAT[160]EXACTLY[160]IS[160]YOUR[160]ROLE"
40380 PRINT" IN[160]ALL[160]OF[160]THIS?[160][160]QUITE[160]SIMPLY,[160]YOU"
40390 PRINT" WILL[160]DETERMINE[160]THE[160]AMOUNT[160]OF[160]FORCE"
40400 PRINT" USED[160]IN[160]THE[160]"CHR$(34)"QUESTIONING"CHR$(34)"."
40410 GETA$:IFA$<>CHR$(13)THEN40410
40420 FORI=19TO5STEP-1:POKE781,I:SYS59903:NEXT
40430 POKE214,4:PRINT"[159]"
40440 PRINT"   YOU[160]WILL[160]DETERMINE[160]THIS[160]BY[160]PRESSING"
40450 PRINT" AND[160]THEN[160]RELEASING[160]THE[160]SPACEBAR[159].[160][160]THE"
40460 PRINT" LONGER[160]YOU[160]WAIT[160]BEFORE[160]RELEASING[160]THE"
40470 PRINT" SPACEBAR,[160]THE[160]MORE[160]FORCE[160]THE"
40480 PRINT" QUESTIONER[160]WILL[160]USE[160]--[160]AND[160]THE[160]MORE"
40490 PRINT" INFORMATION[160]THE[160]MEMBER[160]WILL[160]REVEAL"
40500 PRINT" (I.E.[160]YOU[160]GET[160]MORE[160]BONUS[160]POINTS)."
40510 PRINT"   HOWEVER,[160]"CHR$(34)"DEAD[160]MEN[160]TELL[160]NO[160]TALES!"CHR$(34)
40530 PRINT" SO[160]IF[160]YOU[160]USE[160]TOO[160]MUCH[160]FORCE,[160]YOU[160]WILL"
40540 PRINT" NOT[160]GET[160]ANY[160]BONUS[160]POINTS."
40550 PRINT"   EVEN[160]IF[160]COMICS[160]ISN'T[160]YOUR[160]BAILIWICK,"
40560 PRINT" YOU[160]CAN[160]STILL[160]CHECK[160]OUT[160]THE[160]BONUS[160]GAME"
40570 PRINT" BY[160]PRESSING[160]2[160][159]AT[160]THE[160]OPTIONS[160]MENU."
40580 GETA$:IFA$<>CHR$(13)THEN40580
40590 RETURN
60000 A$="HELLO CONNECT":FORI=8TO9:CLOSE2:OPEN2,I,2:CLOSE2:IFSTTHEN60020
60010 CLOSE15:OPEN15,I,15,"R0:"+A$+"="+A$:INPUT#15,ER:CLOSE15:IFER=63THEN60030
60020 NEXT:PRINT"[147]":POKE186,8:END
60030 Q$=CHR$(34):POKE646,PEEK(53281):PRINT"[147]"
60040 PRINT"[147]P[207]2048,0:P[207]44,8:P[207]43,1:P[207]56,160:P[207]55,0:CLR:L[207]"Q$A$Q$","I
60050 PRINT"RUN:":POKE631,13:POKE632,13:POKE198,2:END